﻿Public Class ucBarra

    Private _contador As Integer = 0

    Sub New()

        ' This call is required by the designer.
        InitializeComponent()
        lblTexto.Visible = True
        _contador = 0
        pb.Step = 0
        pb.Value = 0

    End Sub

    Public Sub stepBarra(ByVal pulo As Integer, Optional ByVal mensagem As String = Nothing)

        _contador = _contador + pulo

        pb.Step = _contador

        txtMensagem.Text = mensagem

        pb.PerformStep()

    End Sub

    Public Sub zeraContador()
        _contador = 0
        Me.pb.Value = 0
    End Sub


    Private Sub ucBarra_Load(sender As Object, e As EventArgs) Handles Me.Load
        txtMensagem.Text = String.Empty
    End Sub
End Class
